10 REM ** AUTORUN.SYS GENERIERUNG * 20 REM ** P. FINZEL 1985 100 DIM D$(80):OPEN #1,8,0,"D:AUTORUN.SYS" 110 ? "AUTORUN.SYS WIRD GENERIERT...":? 120 READ D$:READ P:IF D$="*" THEN 200 130 S=0:? "*"; 140 FOR I=1 TO LEN(D$) STEP 2 150 H=ASC(D$(I,I))-48:L=ASC(D$(I+1,I+1))-48 160 D=(H-(H>9)*7)*16+L-(L>9)*7:S=S+D:PUT #1,D 170 NEXT I:IF S=P THEN 120 180 ? :? :? "DATENFEHLER IN ZEILE ";PEEK(183)+PEEK(184)*256:CLOSE #1:STOP 200 REM * FILE SCHLIESSEN 210 CLOSE #1 220 ? :? :? "AUTORUN.SYS ORDNUNGSGEMAESS ERZEUGT!" 230 END 1100 DATA FFFF001FFB1F20EC1F200920A200BD1A03F00AC958F024E8E8,2854 1110 DATA E8D0F260A9589D1A03A9369D1B03A91F9D1C03A9009D1D03A9,2546 1120 DATA 7D8DE702A9208DE80260471F521FA91F681F441F441F4C451F,2095 1130 DATA A00160A9008D6C208D6D20A00160BD4A032908F00CAD6C208D,2267 1140 DATA 6E20AD6D208D6F20A0016048AC6C2084E0AD6D20484A4AAA68,2545 1150 DATA 29031D702085E1C0F0D004C9FFF020AD01D329FE8D01D368A0,3244 1160 DATA 0091E0AD01D309018D01D3EE6C20D003EE6D20A0016068A0A9,2775 1170 DATA 60AC6C2084E0AD6D20CC6E20D005CD6F20F02D484A4AAA6829,2805 1180 DATA 031D702085E1AD01D329FE8D01D3A000B1E048AD01D309018D,2736 1190 DATA 01D3EE6C20D003EE6D2068A00160A08860A50DC920F0108D05,2746 1200 DATA 20A50C8D0420A903FC1F7C20850CA920850D602040154C061F,1815 1210 DATA 78A9008D0ED4AD01D329FE8D01D3A96B8DFAFF8DFEFFA9208D,3603 1220 DATA FBFF8DFFFFA200AD01D309018D01D3BD00E048BD00E148BD00,3227 1230 DATA E248BD00E348AD01D329FE8D01D3689D00E3689D00E2689D00,3055 1240 DATA E1689D00E0E8D0CDAD01D309018D01D3A9408D0ED458604000,2951 1250 DATA 000000C0C4C8CCD8DCE4E8ECF0F4F8FCE002E102001F,3392 1260 DATA *,0